home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-11 / popvid.zip / POPVID.ASM < prev    next >
Assembly Source File  |  1993-01-04  |  1KB  |  49 lines

  1. ; Program   Popvid.asm   for clipper -> SAyWhat!
  2. ; Based (heavily!) on the example asm program in W85 Clipper doc 
  3. ; page 4-25 and the amended version in the 'README.1ST'
  4. ; As you will see, I make no claims to be an assembly language
  5. ; programmer BUT, this seems to work OK.
  6. ;
  7. ; Access by:  CALL POPVID with memvar
  8. ;                       or
  9. ;             CALL POPVID with 'command/'
  10. ;
  11. ;             Use with PLINK86 by "PLINK86 FI clipfile FI popvid"
  12. ;          or  DOS linker by "LINK clipfile+popvid"
  13. ;
  14. ; by:
  15. ;    Robert F. Hicks
  16. ;    6508 Harwood Place
  17. ;    Springfield, VA 22152
  18. ;
  19. ; April 16, 1986
  20.  
  21.     PUBLIC    POPVID
  22. _PROG    SEGMENT    BYTE
  23.     ASSUME    CS:_PROG
  24. ;
  25. POPVID    PROC     FAR
  26.     PUSH     BP         ; save registers and set up per Clipper
  27.     MOV    BP,SP
  28.     PUSH    DS
  29.     PUSH    ES
  30.     LDS    SI,[BP+6]    ; DS:SI now points to the string being
  31. ;                 ; passed by Clipper
  32.     MOV    AH,14        ; set up for INT 10 function 'TTY'
  33.     MOV    AL,255         ; VIDPOP's wake up character
  34.     INT    10H
  35.     INT    10H         ; send it twice to awaken vidpop
  36. MORE:    MOV    AL,[SI]      ; get a character from the passed string
  37.     INT    10H         ; send it to VIDPOP
  38.     INC    SI         ; point to the next character
  39.     CMP    AL,0         ; is it the 0 string terminator
  40.     JNZ    MORE         ; no -go send another char
  41.     POP    ES         ; yes, restore for Clipper and return
  42.     POP    DS
  43.     POP    ES
  44.     RET
  45. POPVID    ENDP
  46. _PROG    ENDS
  47.     END
  48.  
  49.